home *** CD-ROM | disk | FTP | other *** search
/ Action Games (2008) / akcnihry1.iso / AT-Robots 2.10 / WEAVE.AT2 < prev    next >
Encoding:
Text File  |  1998-06-08  |  1.2 KB  |  66 lines
  1. ;
  2. ; WEAVER - 
  3. ;
  4. ; Chris Rasys : E-mail (ethomumm@pop.k12.vt.us) 
  5.  
  6. #def randnum
  7. #def myrnge
  8. #def scope
  9. #def accur
  10. #def accurop
  11.  
  12.  
  13.      
  14.      ;mov       myrnge, 200
  15.      mov        scope   6
  16.  
  17.      opo        13,     0       ; turret : in front
  18.      opo        17,     scope   ; scan radius
  19.      
  20.      :100
  21.      inc        scope
  22.      inc        scope
  23.      inc        scope
  24.      opo        11,     0
  25.      :101
  26.      cmp        scope,  0
  27.      jb         300
  28.  
  29.      cmp        scope,  0
  30.      je         300
  31.      opo        14,     scope
  32.      ipo        7,      myrnge ;check
  33.      cmp        myrnge, 2000   ;for
  34.      jb         10             ;enemy
  35.      
  36.      jmp        101
  37.  
  38.      
  39.      :10
  40.   
  41.      ipo        8,      accur
  42.      opo        15,     accur
  43.      opo        15,     accur
  44.      opo        11,     100
  45.      opo        17,     scope
  46.      dec        scope
  47.      ipo        7,      myrnge ;check
  48.      cmp        myrnge, 2000   ;for
  49.      jb         10             ;enemy
  50.      jmp        100
  51.  
  52.      :200
  53.      opo        18
  54.      opo        15
  55.      opo        15
  56.      opo        15
  57.      opo        18
  58.      jmp        100
  59.  
  60.      :300
  61.      mov        scope,  6
  62.      jmp        101
  63.  
  64.  
  65. #END
  66.